home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s9.d64 / hard habit (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  17 lines
  1. 100 POKE45,248:POKE46,42:POKE51,248:POKE52,46:CLR:POKE53280,0:POKE53281,0:PRINT"[154][147]"
  2. 110 POKE808,234:PRINTCHR$(14)CHR$(8)
  3. 120 SYS2956:PRINT"[147]          [200][193][210][196] [200][193][194][201][212] [212][207] [194][210][197][193][203]"
  4. 121 PRINT"[129]              [210]ECORDED BY"
  5. 122 PRINT"[158]                [195][200][201][195][193][199][207]"
  6. 123 PRINT"               [205]USIC  BY"
  7. 124 PRINT"      [211][212][197][214][197] [203][201][208][206][197][210] AND [202][207][200][206] [208][193][210][203][197][210]"
  8. 125 PRINT"    ([195])1984 [193][208][210][201][204] [205][213][211][201][195] [201][206][195]., ET.AL."
  9. 126 PRINT"[156]   [193]RRANGED BY [205][201][195][200][193][197][204] [215][197][194][197][210], ([195])1985"
  10. 127 PRINT"       [151][195]OMMERCIAL USE PROHIBITED.[146]"
  11. 130 SYS2649
  12. 270 POKE198,0:POKE53280,0:PRINT"[147][154]              [208]LAY [193]GAIN?"
  13. 275 POKE53280,(PEEK(53280)AND15)+1
  14. 280 GETA$:IFA$=""THEN275
  15. 290 IFA$="Y"THEN120
  16. 300 PRINT"[154][147]"CHR$(9)CHR$(142):POKE808,237:POKE53280,0:NEW
  17.